Developer CD Series 1994 June: Reference Library/Dev.CD Jun 94.toast/Periodicals/develop/develop Issue 18/develop 18 code/Hierarchical Lists/Src/ListInAList.r

Text File | 1994-03-16 | 4.6 KB | 217 lines | [TEXT/KAHL]

/*                                    ListInAList.r                                */
/*
 * List In A List Sample
 * ListInAList.r
 * Copyright © 1993-94 Apple Computer Inc.
 */
#define REZ
#include "Types.r"
#include "SysTypes.r"
#include "ListInAList.h"

#ifdef __powerc
/*
 * All Power PC applications need a code-fragment resource that the code
 * fragment manager uses to facilitate dynamic fragment binding.
 */
#include "CodeFragmentTypes.r"

resource 'cfrg' (0) {
    {
        kPowerPC,
        kFullLib,
        kNoVersionNum,
        kNoVersionNum,
        kDefaultStackSize,
        kNoAppSubFolder,
        kIsApp,
        kOnDiskFlat,
        kZeroOffset,
        kWholeFork,
        "ListInAListPPC"
    }
};

#endif

/*
 * This stub resource must be included in your application. Although it is
 * hard-coded 68000 instructions and the actual LDEF procedure may be compiled
 * into native Power PC code, the stub will run correctly on PowerPC.
 */
#ifndef LDEF_Stub
#define LDEF_Stub                1024
#endif
type 'LDEF' {
    unsigned hex longint = $41FA0006;    /*    lea        pc+8,a0    ; a0 -> ProcPtr    */
    unsigned hex int = $2050;            /*    movea.l    (a0),a0    ; a0 -> LDEF    */
    unsigned hex int = $4ED0;            /*    jmp        (a0)    ; jump to it    */
    unsigned hex longint = 0;            /*    dc.l    0        ; LDEF ProcPtr    */
};
resource 'LDEF' (LDEF_Stub, "Stub LDEF", preload, locked) { };

resource 'MBAR' (MBAR_MenuBar, "Menu Bar") {
    {
        MENU_Apple,
        MENU_File,
        MENU_Edit
    }
};

resource 'MENU' (MENU_Apple, "Apple Menu") {
    MENU_Apple,
    textMenuProc,
    0x7FFFFFFC,
    enabled,
    apple,
    {
        "© 1993 Apple Computer Inc.", noIcon, noKey, noMark, plain,
        "-", noIcon, noKey, noMark, plain
    }
};

resource 'MENU' (MENU_File, "File Menu") {
    MENU_File,
    textMenuProc,
    allEnabled,
    enabled,
    "File",
    {
        "Quit", noIcon, "Q", noMark, plain
    }
};

resource 'MENU' (MENU_Edit, "Edit Menu") {
    MENU_Edit,
    textMenuProc,
    0x0,
    enabled,
    "Edit",
    {
        "Undo", noIcon, "Z", noMark, plain,
        "-", noIcon, noKey, noMark, plain,
        "Cut", noIcon, "X", noMark, plain,
        "Copy", noIcon, "C", noMark, plain,
        "Paste", noIcon, "V", noMark, plain,
        "Clear", noIcon, noKey, noMark, plain
    }
};

data 'mstr' (100, "MF Quit Menu") {
    "File"                                          /* File */
};

data 'mstr' (101, "MF Quit Item") {
    "Quit"                                          /* Quit */
};

resource 'vers' (1) {
    0x1,
    0x0,
    release,
    0x0,
    verUS,
    "1.0",
    "1.0 © 1993 Apple Computer Inc. All Rights Reserved"
};

resource 'vers' (2) {
    0x1,
    0x0,
    release,
    0x0,
    verUS,
    "1.0",
    "List in a List Sample"
};

resource 'SIZE' (-1) {
    reserved,
    acceptSuspendResumeEvents,
    reserved,
    canBackground,
    multiFinderAware,
    backgroundAndForeground,
    dontGetFrontClicks,
    ignoreChildDiedEvents,
    is32BitCompatible,
    notHighLevelEventAware,
    onlyLocalHLEvents,
    notStationeryAware,
    dontUseTextEditServices,
    reserved,
    reserved,
    reserved,
    512 * 1024,
    512 * 1024
};

resource 'acur' (ACUR_Animator, locked, preload) {
    {
        128, 129, 130, 131, 132, 133, 134, 135
    }
};

resource 'CURS' (128, locked, preload) {
    $"0018 003C 007E 07FF 081E 100C 1088 1088"
    $"1388 1008 3008 7818 FFFC FC08 7800 30",
    $"0018 003C 007E 07FF 0FFE 1FFC 1FF8 1FF8"
    $"1FF8 1FF8 3FF8 7FF8 FFFC FC08 7800 30",
    {8, 8}
};

resource 'CURS' (129, locked, preload) {
    $"0000 0000 0000 07E0 0810 F00F F08F F08F"
    $"F38F F00F F00F 0810 07E0 0180 0180",
    $"0000 0000 0000 07E0 0FF0 FFFF FFFF FFFF"
    $"FFFF FFFF FFFF 0FF0 07E0 0180 0180",
    {8, 8}
};

resource 'CURS' (130, locked, preload) {
    $"3000 7800 FC00 FFE0 7810 3008 1088 1088"
    $"1388 1008 100C 381E 3FFF 183F 001E 000C",
    $"3000 7800 FC00 FFE0 7FF0 3FF8 1FF8 1FF8"
    $"1FF8 1FF8 1FFC 3FFE 3FFF 183F 001E 000C",
    {8, 8}
};

resource 'CURS' (131, locked, preload) {
    $"07E0 07E0 07E0 07E0 0810 1008 1088 7088"
    $"7388 1008 1008 0810 07E0 07E0 07E0 07E0",
    $"07E0 07E0 07E0 07E0 0FF0 1FF8 1FF8 7FF8"
    $"7FF8 1FF8 1FF8 0FF0 07E0 07E0 07E0 07E0",
    {8, 8}
};

resource 'CURS' (132, locked, preload) {
    $"0018 003C 187E 3FFF 381E 100C 1088 1088"
    $"1388 1008 3008 7818 FFF8 FC00 7800 30",
    $"0018 003C 187E 3FFF 3FFE 1FFC 1FF8 1FF8"
    $"1FF8 1FF8 3FF8 7FF8 FFF8 FC00 7800 30",
    {8, 8}
};

resource 'CURS' (133, locked, preload) {
    $"0000 0180 0180 07E0 0810 F00F F08F F08F"
    $"F38F F00F F00F 0810 07E0",
    $"0000 0180 0180 07E0 0FF0 FFFF FFFF FFFF"
    $"FFFF FFFF FFFF 0FF0 07E0",
    {8, 8}
};

resource 'CURS' (134, locked, preload) {
    $"3000 7800 FC18 FFFC 781C 3008 1088 1088"
    $"1388 1008 100C 181E 0FFF 003F 001E 000C",
    $"3000 7800 FC18 FFFC 7FFC 3FF8 1FF8 1FF8"
    $"1FF8 1FF8 1FFC 1FFE 0FFF 003F 001E 000C",
    {8, 8}
};

resource 'CURS' (135, locked, preload) {
    $"07E0 07E0 07E0 07E0 0810 1008 1088 108E"
    $"138E 1008 1008 0810 07E0 07E0 07E0 07E0",
    $"07E0 07E0 07E0 07E0 0FF0 1FF8 1FF8 1FFE"
    $"1FFE 1FF8 1FF8 0FF0 07E0 07E0 07E0 07E0",
    {8, 8}
};